﻿Public Class frmMain

    Private Sub MostrarFormulario(formulario As Form)
        formulario.MdiParent = Me
        formulario.MaximizeBox = False
        formulario.WindowState = FormWindowState.Maximized
        formulario.Show()
    End Sub
    Private Sub AgregarPlanetaToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AgregarPlanetaToolStripMenuItem.Click
        Me.MostrarFormulario(frmInsertarPlaneta)
    End Sub

    Private Sub AgregarSateliteToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles AgregarSateliteToolStripMenuItem1.Click
        Me.MostrarFormulario(frmInsertarSatelite)
    End Sub

    Private Sub AgregarEstrellaToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles AgregarEstrellaToolStripMenuItem1.Click
        Me.MostrarFormulario(frmInsertarEstrella)
    End Sub
    Private Sub AgregarToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AgregarToolStripMenuItem.Click
        Me.MostrarFormulario(frmInsertarPrograma)

    End Sub
    Private Sub AgregarToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles AgregarToolStripMenuItem1.Click
        Me.MostrarFormulario(frmInsertarMision)
    End Sub
    Private Sub TodosToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles TodosToolStripMenuItem1.Click
        Me.MostrarFormulario(frmListarProgramas)
    End Sub

    Private Sub ListarEstrellasToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ListarEstrellasToolStripMenuItem.Click
        Me.MostrarFormulario(frmListarEstrellas)
    End Sub

    Private Sub ListarPlanetaToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ListarPlanetaToolStripMenuItem.Click
        Me.MostrarFormulario(frmListarPlanetas)
    End Sub

    Private Sub ListarSatelitesToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ListarSatelitesToolStripMenuItem.Click
        Me.MostrarFormulario(frmListarSatelites)
    End Sub

    Private Sub TodosToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TodosToolStripMenuItem.Click
        Me.MostrarFormulario(frmListarMission)

    End Sub

    Private Sub PorCuerpoCelesteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PorCuerpoCelesteToolStripMenuItem.Click
        Me.MostrarFormulario(frmListarMisionCuerpo)
    End Sub
    Private Sub PorMisionToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PorMisionToolStripMenuItem.Click
        Me.MostrarFormulario(frmListarMissionPrograma)
    End Sub

End Class
